home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00722_AC-bt val.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  360 b   |  22 lines
  1. on mouseDown
  2.   global g1erSprLoc, gNumSpr, gBoutons
  3.   set gNumSpr to g1erSprLoc + 15
  4.   gBoutons(appuie, gNumSpr)
  5. end
  6.  
  7. on mouseUp
  8.   global g1erSprLoc, gBoutons, gNumSpr
  9.   curseur(1)
  10.   if gNumSpr = (g1erSprLoc + 15) then
  11.     MouseClick()
  12.     gBoutons(relache, gNumSpr)
  13.   else
  14.     pass()
  15.   end if
  16. end
  17.  
  18. on MouseClick
  19.   beep()
  20.   MouseClick(script "AC:bt poub")
  21. end
  22.